Attribute VB_Name = "ThisAddIn"
'------------------- Copy & paste from here to the ThisAddIn module of add-in file --------------------
'
' Copyright (C) 2012 Ken Majima <majimaji12@gmail.com>
'     All rights reserved.
'     This is free software with ABSOLUTELY NO WARRANTY.
'
' You can redistribute it and/or modify it under the terms of
' the GNU General Public License version 2.
'

Option Explicit

Public Const gIniFileName As String = "excelHg.ini"

' :Function: Get this add-in path.
Public Function GetThisAddInPath() As String
  GetThisAddInPath = ThisWorkbook.Path
End Function


